home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source1.lha / source / amiga / FileSysRes.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  2.7 KB  |  72 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: FileSysRes.mod $
  4.   Description: Interface to FileSystem.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   $VER: filesysres.h 36.4 (3.5.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  24. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  25. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  26.  
  27. MODULE [2] FileSysRes;
  28.  
  29. IMPORT e := Exec, d := Dos, s := Sets;
  30.  
  31.  
  32. (*
  33. **      FileSystem.resource description
  34. *)
  35.  
  36. CONST
  37.  
  38.   fsrName * = "FileSystem.resource";
  39.  
  40. TYPE
  41.  
  42.   FileSysResourcePtr * = POINTER TO FileSysResource;
  43.   FileSysResource * = RECORD (e.NodeBase)
  44.     node *           : e.Node;    (* on resource list *)
  45.     creator *        : e.LSTRPTR; (* name of creator of this resource *)
  46.     fileSysEntries * : e.List;    (* list of FileSysEntry structs *)
  47.   END; (* FileSysResource *)
  48.  
  49.   FileSysEntryPtr * = POINTER TO FileSysEntry;
  50.   FileSysEntry * = RECORD (e.NodeBase)
  51.     node *       : e.Node;         (* on fsrFileSysEntries list *)
  52.                                    (* lnName is of creator of this entry *)
  53.     dosType *    : e.ULONG;        (* DosType of this FileSys *)
  54.     version *    : e.ULONG;        (* Version of this FileSys *)
  55.     patchFlags * : s.SET32;        (* bits set for those of the following that *)
  56.                                    (*   need to be substituted into a standard *)
  57.                                    (*   device node for this file system: e.g. *)
  58.                                    (*   180H for substitute SegList & GlobalVec *)
  59.     type *       : e.ULONG;        (* device node type: zero *)
  60.     task *       : e.TaskPtr;      (* standard dos "task" field *)
  61.     lock *       : d.FileLockPtr;  (* not used for devices: zero *)
  62.     handler *    : d.BSTR;         (* filename to loadseg (if SegList is null) *)
  63.     stackSize *  : e.ULONG;        (* stacksize to use when starting task *)
  64.     priority *   : LONGINT;        (* task priority when starting task *)
  65.     startup *    : e.BPTR;         (* startup msg: FileSysStartupMsg for disks *)
  66.     segList *    : e.BPTR;         (* code to run to start new task *)
  67.     globalVec *  : e.BPTR;         (* BCPL global vector when starting task *)
  68.     (* no more entries need exist than those implied by fsePatchFlags *)
  69.   END; (* FileSysEntry *)
  70.  
  71. END FileSysRes.
  72.